home *** CD-ROM | disk | FTP | other *** search
/ Solaris Press Kit / Solaris Press Kit.iso / mac / Media / Solaris.dxr / Internal_26_MUI Behavior.ls < prev    next >
Encoding:
Text File  |  2002-10-23  |  1.1 KB  |  40 lines
  1. global gbQT, gbPC, gRootPath
  2.  
  3. on checkQT
  4.   if QuickTimeVersion() < 4 then
  5.     atitle = "Quicktime Not Detected"
  6.     amoveable = 1
  7.     amessage = "QuickTime version 4 or higher is required to view the trailer video on this CD-ROM.  Do you wish to install QuickTime now?" & RETURN & "(Select 'Yes' to install QuickTime, or 'No' to continue without trailer access.)"
  8.     abuttons = #YesNo
  9.     aicon = #question
  10.     adefault = 6
  11.     alertObj = new(xtra("MUI"))
  12.     alertInitList = [#Buttons: abuttons, #title: atitle, #Message: amessage, #movable: amoveable, #default: adefault, #Icon: aicon]
  13.     if objectp(alertObj) then
  14.       result = alert(alertObj, alertInitList)
  15.       case result of
  16.         1:
  17.           installQT()
  18.         2:
  19.           gbQT = 0
  20.         otherwise:
  21.           halt()
  22.       end case
  23.     else
  24.       alert("No MUI Xtra")
  25.     end if
  26.   else
  27.     gbQT = 1
  28.   end if
  29. end
  30.  
  31. on installQT
  32.   if gbPC then
  33.     installPath = gRootPath & "QuickTime\QuickTimeInstaller.exe"
  34.   else
  35.     installPath = gRootPath & "QuickTime 5 Installer:QuickTime Installer"
  36.   end if
  37.   open(installPath)
  38.   halt()
  39. end
  40.